home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 027a / springb.zip / TEST.SRC < prev   
Text File  |  1991-10-26  |  2KB  |  57 lines
  1. *  Test Program for SpringBoard
  2. *  Copyright (c) 1991 SoundView Data Systems - All Rights Reserved
  3. *
  4. *  SpringBoard supports the following functions.
  5. *
  6. *  CLEAR()
  7. *  SPRINT( nRow, nCol, cTEXT )
  8. *  SINGLEBOX( nTopLeftRow, nTopLeftCol, nBottomRightRow, nBottomRightCol )
  9. *  DOUBLEBOX( nTopLeftRow, nTopLeftCol, nBottomRightRow, nBottomRightCol )
  10. *  SETCOLOR( cColorString )
  11. *  SETMONO( cColorString )
  12. *  FILL( nTopLeftRow, nTopLeftCol, nBottomRightRow, nBottomRightCol, cChar )
  13. *  RUN( cProgname [args] )
  14. *
  15. *  Notes:
  16. *  All arguments are required - there are no optional parameters.
  17. *  Character type arguments should be delimited with '' or "". See the
  18. *      sample source below for examples.
  19. *  Colors should be passed as standard xBase color strings (in quotes). 
  20. *  Blank lines and lines starting with '*' are treated as comments.
  21. *  The SpringBoard runtime will use the color defined by SETCOLOR() or SETMONO()
  22. *      depending upon the active display mode detected at runtime.
  23. *  The RUN command will search the current working directory first, and then
  24. *      will search all directories defined in the PATH variable (if one exists).
  25. *  A target filespec (and optional arguments) passed on the command line
  26. *     will supercede any filespec and arguments that were originally 
  27. *     compiled into the launcher.
  28. *
  29. ***---set up the backdrop colors
  30. clear()
  31. setcolor('w/b')
  32. setmono('n/w')
  33.  
  34. **---make a textured backdrop
  35. fill(0,0,24,79,'▒')
  36.  
  37. **---underlay a shadow before drawing the window
  38. setcolor('n/b')
  39. fill(10,10,14,69,'▒')
  40.  
  41. **---clear out a window and add a border
  42. fill(9,9,13,68,' ')
  43. setcolor('g+/b')
  44. doublebox(9,9,13,68)
  45.  
  46. **---display a "Loading..." message
  47. setcolor('w+/b')
  48. sprint(11,25,' Loading your program now... ')
  49.  
  50. **---exec the target program, with some dummy command line arguments
  51. run('exectest arg1 arg2')
  52.  
  53. **---if the exec is successful, we'll never return to execute this line!
  54. setcolor('w+/r')
  55. sprint(11,16," Whoops!!!  Can't run your program. Sorry. ")
  56.  
  57. *---eof